home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / lib / perl / 5.10.1 / Config.pm < prev    next >
Encoding:
Perl POD Document  |  2012-12-11  |  2.7 KB  |  99 lines
  1. # This file was created by configpm when Perl was built. Any changes
  2. # made to this file will be lost the next time perl is built.
  3.  
  4. # for a description of the variables, please have a look at the
  5. # Glossary file, as written in the Porting folder, or use the url:
  6. # http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary
  7.  
  8. package Config;
  9. use strict;
  10. # use warnings; Pulls in Carp
  11. # use vars pulls in Carp
  12. @Config::EXPORT = qw(%Config);
  13. @Config::EXPORT_OK = qw(myconfig config_sh config_vars config_re);
  14.  
  15. # Need to stub all the functions to make code such as print Config::config_sh
  16. # keep working
  17.  
  18. sub myconfig;
  19. sub config_sh;
  20. sub config_vars;
  21. sub config_re;
  22.  
  23. my %Export_Cache = map {($_ => 1)} (@Config::EXPORT, @Config::EXPORT_OK);
  24.  
  25. our %Config;
  26.  
  27. # Define our own import method to avoid pulling in the full Exporter:
  28. sub import {
  29.     my $pkg = shift;
  30.     @_ = @Config::EXPORT unless @_;
  31.  
  32.     my @funcs = grep $_ ne '%Config', @_;
  33.     my $export_Config = @funcs < @_ ? 1 : 0;
  34.  
  35.     no strict 'refs';
  36.     my $callpkg = caller(0);
  37.     foreach my $func (@funcs) {
  38.     die sprintf qq{"%s" is not exported by the %s module\n},
  39.         $func, __PACKAGE__ unless $Export_Cache{$func};
  40.     *{$callpkg.'::'.$func} = \&{$func};
  41.     }
  42.  
  43.     *{"$callpkg\::Config"} = \%Config if $export_Config;
  44.     return;
  45. }
  46.  
  47. die "Perl lib version (5.10.1) doesn't match executable version ($])"
  48.     unless $^V;
  49.  
  50. $^V eq 5.10.1
  51.     or die "Perl lib version (5.10.1) doesn't match executable version (" .
  52.     sprintf("v%vd",$^V) . ")";
  53.  
  54. sub FETCH {
  55.     my($self, $key) = @_;
  56.  
  57.     # check for cached value (which may be undef so we use exists not defined)
  58.     return $self->{$key} if exists $self->{$key};
  59.  
  60.     return $self->fetch_string($key);
  61. }
  62. sub TIEHASH {
  63.     bless $_[1], $_[0];
  64. }
  65.  
  66. sub DESTROY { }
  67.  
  68. sub AUTOLOAD {
  69.     require 'Config_heavy.pl';
  70.     goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
  71.     die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
  72. }
  73.  
  74. # tie returns the object, so the value returned to require will be true.
  75. tie %Config, 'Config', {
  76.     archlibexp => '/usr/lib/perl/5.10',
  77.     archname => 'i486-linux-gnu-thread-multi',
  78.     cc => 'cc',
  79.     d_readlink => 'define',
  80.     d_symlink => 'define',
  81.     dlsrc => 'dl_dlopen.xs',
  82.     dont_use_nlink => undef,
  83.     exe_ext => '',
  84.     inc_version_list => '5.10.0',
  85.     intsize => '4',
  86.     ldlibpthname => 'LD_LIBRARY_PATH',
  87.     libpth => '/usr/local/lib /lib /usr/lib /usr/lib64',
  88.     osname => 'linux',
  89.     osvers => '3.2.0-4-686-pae',
  90.     path_sep => ':',
  91.     privlibexp => '/usr/share/perl/5.10',
  92.     scriptdir => '/usr/bin',
  93.     sitearchexp => '/usr/local/lib/perl/5.10.1',
  94.     sitelibexp => '/usr/local/share/perl/5.10.1',
  95.     useithreads => 'define',
  96.     usevendorprefix => 'define',
  97.     version => '5.10.1',
  98. };
  99.